home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / TOC.DIR / 00007_Script_sbx < prev    next >
Text File  |  1995-11-21  |  804b  |  38 lines
  1. -- standard button
  2. --ancestor to standard button trios [sbt]
  3. --property myChannel, myScript
  4.  
  5. --on birth me, sp,sc
  6. --  set myChannel to integer(sp)
  7. --  set myScript to sc
  8. --  return me
  9. --end
  10. --
  11. --change appearance
  12.  
  13. on sbnorm myChannel
  14.   puppetSprite myChannel,TRUE
  15.   set the ink of sprite myChannel to 36
  16.   updateStage
  17.   puppetSprite myChannel, false
  18. end 
  19.  
  20. on sbrollo myChannel
  21.   --put ">>>my rollover cast 7 (sb) ink change "
  22.   puppetSprite myChannel,TRUE
  23.   set the ink of sprite myChannel to 33
  24.   updateStage
  25.   puppetSprite myChannel, false
  26. end
  27.  
  28. on sbpress myChannel
  29.   puppetSprite myChannel,TRUE
  30.   set the ink of sprite myChannel to 38
  31.   updateStage
  32.   puppetSprite myChannel, false
  33. end
  34.  
  35. on sbdoScript myScript
  36.   --put ">>> do script: " & myScript
  37.   do myScript
  38. end